Libris Britannia 4/science library(b).zip/science library(b)/MEDICAL/2608A.ZIP/GP.ZIP/PRINTAP.SRC

Text File | 1990-11-03 | 4KB | 198 lines

;\|
;PRINTAP.SRC     Translated from PRINTAP.EDT by Roger Mathew's EDT2SRC Ver 4.11
;PRINTAP  02:06:10 PM  14/ 7/90   |
    define(RECALL|A|8||)
    define(CTR2|N|2||)
    define(CTR3|N|3||)
    define(PRINTCHOICE|N|1||)
    define(XGOTO|N|1||)
    define(REC|N|1||)
    define(DATECHOICE|S|8||)
    define(DATEAP|S|8||)
    define(MEM_NAME|A|27||)
    define(DAYN|N|7||)
    define(DAY|A|9||)
    define(DRNAMEAP|A|20||)
    define(CNTR|N|2||)
    define(FLAG|A|1||)
    define(STOP|N|3||)
    define(STOP_P|N|3||)
    define(STOP_P2|N|3||)
    define(BLANK|A|27||)
    define(TD|S|8||)
    date(TD|G)
    DATEAP = (TD)
    open(APPOINTS||0|)
    open(APSET||0|)
    open(PATIENT||0|)
    open(RECALLS|||)
    find(B|APSET||)
PRINTAP:
    PRINTCHOICE = (0)
    DATECHOICE = (0)
    trap(Q|I)
    trap(%|I)
    saves(1)
    window(30|12|6|40)
    pmsg("1.DO NOT PRINT APPOINTS"|1|1|N|N|S|)
    pmsg("2.PRINT TODAYS APPOINTS"|1|2|N|N|S|)
    pmsg("3.PRINT APPOINTS FOR:DATE:"|1|3|Y|N|S|DATECHOICE)
    pmsg("4.PRINT ALL APPOINTMENTS"|1|4|Y|N|S|DATECHOICE)
ENTERCH:
    pmsg("ENTER CHOICE:"|1|5|N|Y|S|)
    enter(PRINTCHOICE|"1234"||ENTERCH|N|Y|N|15|5|N)
    if PRINTCHOICE = (2) then goto CHOICE1
    if PRINTCHOICE = (3) do
        {
        DRDATE = (DATECHOICE)
        goto CHOICE2
        }
    if PRINTCHOICE = (1) do
        {
        trap(%|D)
        trap(Q|G|EXIT)
        goto EXIT
        }
    if PRINTCHOICE = (4) goto CHOICE1
CHOICE1:
    DRDATE = (DATEAP)
    DATECHOICE = (DRDATE)
CHOICE2:
    find(M|DRDATE|ENDPRINT|N)
NEXTPRINT:
    DAYN =day(DRDATE)
    DAY =day(DRDATE)
    DRNAMEAP = (DRNAME[APDR])
    pchr(P|4)
    pset(132|66|66)
    pchr(P|1)
    pmsg("MORNING APPOINTMENTS FOR ";DRNAME[APDR];"ON ";DAY;" ";DRDATE|1|1|N|N|P|)
    pmsg("------------------------------------------------------------------------------"|1|1|N|N|P|)
    pmsg(""|1|1|N|N|P|)
    CNTR = (1)
    for(CNTR|1|24|1)
        {
        FLAG = ("A")
        REC = (RECAM[CNTR])
        MEM_NAME = (PATAM[CNTR])
        STOP_P =loc("."|MEM_NAME|1||27)
        STOP_P2 = (27-STOP_P)
        mid(MEM_NAME|STOP_P|STOP_P2|BLANK|)
        COD.PAT.NAME = (PATAM[CNTR])
        pmsg(TIMEAM[CNTR];"  ";PATAM[CNTR];"  ";ADAM[CNTR];"  ";TELAM[CNTR]|1|1|N|Y|P|)
        gosub REC_RELATE
        }
    pmsg(""|1|1|N|N|P|)
    pmsg("EVENING APPOINTMENTS FOR ";DRNAME[APDR];"ON ";DAY;" ";DRDATE|1|1|N|N|P|)
    pmsg("------------------------------------------------------------------------------"|1|1|N|N|P|)
    pmsg(""|1|1|N|N|P|)
    CNTR = (1)
    for(CNTR|1|24|1)
        {
        FLAG = ("P")
        REC = (RECPM[CNTR])
        MEM_NAME = (PATPM[CNTR])
        STOP_P =loc("."|MEM_NAME|1||27)
        STOP_P2 = (27-STOP_P)
        mid(MEM_NAME|STOP_P|STOP_P2|BLANK|)
        COD.PAT.NAME = (MEM_NAME)
        pmsg(TIMEPM[CNTR];"  ";PATPM[CNTR];" ";ADPM[CNTR];" ";TELPM[CNTR]|1|1|N|Y|P|)
        gosub REC_RELATE
        }
    STOP = (11)
    for(CNTR|1|STOP|1)
        {
        pmsg(" "|1|1|N|N|P|)
        }
    CNTR = (1)
    find(N|APPOINTS|ENDPRINT|N)
    if PRINTCHOICE = (4) goto NEXTPRINT
    if DRDATE <> (DATECHOICE) goto ENDPRINT
    goto NEXTPRINT
ENDPRINT:
    trap(R|I)
    clr(APPOINTS|B)
    goto EXIT
GETNAME:
    XGOTO = (CTR2)
    if XGOTO = (0) do
        {
        RECALL = ("")
        ret
        }
    on(XGOTO|G|SM;CO;BP;DI;EP;TH;AN;AS;PS|)
SM:
    RECALL = ("SMEAR")
    ret
CO:
    RECALL = ("CONTRA")
    ret
BP:
    RECALL = ("IMMUN")
    ret
DI:
    RECALL = ("DIABETIC")
    ret
EP:
    RECALL = ("PAEDS")
    ret
TH:
    RECALL = ("THYROID")
    ret
AN:
    RECALL = ("RP CHECK")
    ret
AS:
    RECALL = ("ASTHMA")
    ret
PS:
    RECALL = ("BP")
    ret
REC_RELATE:
    if REC = (0) do
        {
        pmsg(""|90|1|N|N|P|)
        ret
        }
    if REC => ("1") do
        {
        COD.PAT.NAME = (MEM_NAME)
        find(M|COD.PAT.NAME|NO_REC_PRN|N)
        CTR3 = (90)
        for(CTR2|1|9|1)
            {
            if COD.D[CTR2] <> (0) do
                {
                if COD.D[CTR2] < (TD) do
                    {
                    gosub GETNAME
                    trim(RECALL|T)
                    pmsg(" ";RECALL;" ";COD.D[CTR2]|CTR3|1|N|Y|P|)
                    CTR3 = (CTR3+18)
                    }
                }
            }
        RECALL = ("")
        pmsg(""|128|1|N|N|P|)
        clr(RECALLS|B)
        }
    else
        {
        pmsg(""|90|1|N|N|P|)
        }
REC_RETURN:
    ret
REL_PM:
    if REC = (0) ret
    RECALL = ("")
    clrmem(COD|9)
    clrmem(COD.D|9)
    COD.PAT.NAME = (PATIENT.NAME)
    find(M|COD.PAT.NAME|REC_RETURN|N)
    ret
EXIT:
    run("recmenu")
NO_REC_PRN:
    pmsg(""|90|1|N|N|P|)
    ret